DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**COMMAND 


ccccccce 0 MM MM MM MM AAAAAA NN NN DDDDDDDD 
ccccccce 000000 MM MM MM MM AAAAAA NN NN DDDDDDDD 

cc 00 00 MMMM MMMM MMMM MMMM AA AA NN NN DD DD 

cc 00 00 MMMM MMMM MMMM MMMM AA AA NN NN DD DD 

cc 00 00 MM MM MM MM MM MM OAA AA NNNN NN DD DD 

cc 00 00 MM MM MM MM MM OMM OAA AA NNNN NN DD DD 

cc 00 00 MM MM MM MM AA AA NN NN NN DD DD 

cc 00 4 MM MM MM MM AA AA NN NN NN ODD DD 

cc 00 MM MM MM MM AAAAAAAAAA NN NNNN DD DD 

cc 00 CO MM MM MM MM AAAAAAAAAA NN NNNN DD DD 

cc 00 00 MM MM MM MM AA AA NN NN DD DD eee 
cc 00 00 MM MM MM MM AA AA NN NN DD DD cove 
cccccccc 000000 MM MM MM MM AA AA WN NN DDDDDDDD cove 
ccccccce 000000 MM MM MM MM AA AA WN NN DDDDDDDD eoee 

LL III SSSSSSSS 

LL HII] SSSSSSSS 

LL II $$ 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] S$ 

LL I] S$ 

LL I] SS 

LL I] SS 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HI] SSSSSSSS 
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(3) 141 
(4) 17 
8) 6 
(7) 8 
(8) 

(9) 724 
(10) 758 
(11) ss 
M2) 831 
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PROCESS NEXT COMMAND 

PROCESS REST OF COMMAND 

CALL _LOGINOUT TO ABORT THE PROCESS 

EOD/DECK COMMANDS 

CHECK FOR CONTROL Y/C AST rewiee 

teh 2 be CONTROL Y/C AST'S 
LUSH COMMAND BUFFER 

PROCESS FOREIGN COMMAND 

GET INTERNAL ROUTINE INDEX 
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-TITLE COMMAND = PROCESS NEXT COMMAND | 
IDENT *¥O4-000" | 
s eenencereescnsreencereneerennenseenenereeconesecencesocqsneceonesceoeeeese 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
*@ ® 
*® 2 
*® ® 
*@ ® 
*@ & 
® ® 
*@ ® 
*® ® 
°® * 
;* TRANSFERRED. ° 
*® ® 
*@ ® 
*® ® 
co ® ® 
*® ® 
*@ Y 
*@ ® 
*@ * 
*@ ® 
*® ® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
orePORaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


RERAAAAAAAAAAAAAAAAAAATAAAAAAAAAARAAARAAAAAAAEAAAAAAAAAAAAEEREREEAAAEAEEAAEEAEEEE 
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; PROCESS NEXT COMMAND 


; D. N. CUTLER 22-MAR-77 
MODIFIED BY: 


v03-018 SniSO18 Cw 28-Jul-1984 


Hobbs 
ix HWS0093 to avoid loop on a control/y. 


v03-017 HWS0093 Harold Schultz 23-Jul-1984 
; If interactive and at indirect level zero, unconditionally 
; clear the execute-only procedure flag. 


v03-016 HWS0061 Harold Schultz 19-Apr-1984 
Restore locked keypad state only after PRC_V_CNTRLY 


: is cleared. 


DOOOOOOSOOSOSOOSOOSOSOOSOSOOSOOSOOSOOOOOOOOOOOOOSOOOO 
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ooo 


; v03-015 HWS0020 Harold Schultz 06-Mar-1984 
When parsing a command which begins with a verb, ignore 
leading blanks when expanding a symbol definition. 


Sooooo 
Sooooo 


| 
; v03-014 HwS0008 Harold Schultz 13-Feb-1984 
Remove obsolete code for setting up prompt block in PRC. 


v03-013 PCG0015 Peter George 06-F eb-1984 
Fix EOJ so that it works even if LOGOUT is deleted. 
: Fix bug in force exiting a privileged image. 


v03-012 PCG0014 Peter George 12-Jan-1984 
Fix typo. 


NAAN 9 ODNAWUNES WN 9B OO NAULS WIN $$ O OO NAUS WN $$ O ODNAUES WN OOONOUS Wn 
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AN DCLSABORT for DCLSEOJ. 


v03-001 ae POs George 30-Sep-1982 
Move oretnl code to DCLSPARSE PC OMMAND 
in PARSENT. Snitial ze WRK_L_PROMPTRIN, WRK 6 _VALLEV, 
and WRK_B_ CMDOPT 


8 ; v03-011 PCG0013 Peter George 03-Jan-1984 
¢ : Set FLUSH bit in flush routine. 
6¢ : v03-010 PCG0012 Peter George 16-Aug-1983 
o7 : Disable indirection when looking ahead for null nodes. 
65 : v03-009 PCG0011 Peter George 20-Jul-1983 
p 66 : Support null node names. 
68 ; v03-008 Preoote Peter George 15-Jun-1983 
09 § 3 ix broken branch. 
$ ome extraneous labels. 
+ 4 : Remove references to PRC. L_TAB_VEC. 
090 ig : v03-007 nCeooo? Peter George gi ney-1963 
44 a : Have command dispatch table branch to JMP's 
000 A: : v03-006 PCG0008 Peter George 30-Apr-1983 
0000 7? 3 Move token sersin routine to DESCRVAL. 
44 A : Clear WRK_B_PARMSUM. 
0000 «80: v03-005 pcG0007 er George 01-Apr-1983 
444 e : Move GOTO soominn’ to GOTO module. 
$009 : : v03-004 PCG0006 Peter George 15-Feb-1983 
444 Se : Update to new structure level. 
000 S$ 3 Remove SETBIT WRK_V_NOSTAT in EOD. 
444 Hy F hey PTR_L_ENTITY and PTR a3 NUMBER when doing DCLSGENDESCR. 
000: 7; Sort new Carger PTR blocks. 
0000 Bs had CL SLOOK P INTERNAL. 
8208 9 : Init recall and keypad fields in WRK block. 
0 91: v03-003 PCG0005 Peter orge 16-Nov-1982 
3 : Use WRK_C_SCRSTKSIZ ay WRK prompt string descriptor. 
000 9% ; v03-002 PCGOO04 Peter George 28-0c t-1982 
4 32 : Use PRC data structure for prompt string. 
00 97 : v03-002 PCG0003 Peter George 19-Oct-1982 
10 4 : Fix batch logout accvio caused by DCLSABORT. 
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OMMAND 4-5 DCL.SRCJCOMMAND.MAR; 1 
.SBTTL PROCESS NEXT COMMAND 
; DCLSRESTART = PROCESS NEXT COMMAND 
S THIS ROUTINE IS THE CENTRAL COMMAND PARSE AND 
STARLET ces COMMAND LANGUAGE INTERPRETER. IT 
COMMAND, READS AND PARSES THE COMMAND FOR SYNT 
Executes THE APPROPRIATE IMAGE. 


INPUTS: 


DDRDR_D_DPAEAAD MAM PPLE ie 


DNAS WN $$ O ODONAUE VO OONOAOUE UT 


Bb RS ne st as a a st td St 


OUTPUTS: 
3 COMMAND IS READ, PARSED, AND AN IMAGE IS ACTIVATED. 
99 -ENABL LSB 
$00 DCLSRESTART:: SRESTART ENTRY POINT | 
SE F486 CD 9E 0000 MOVAB WRK_K_LENGTH(FP),SP ZALL LOCATE COMMAND IMPURE AREA 
005 RESET STACK “poINten 
A 5D 00 0005 MOVL  FP,R10 sen BASE ADDRESS 0 
FFFF'CFE 9E 0008 MOVAB W*OCLSHYPHEN-1 ‘SET TO FORCE faPUy on NEXT GET 
F4BE CA 00C WRK_L SCHARPTR(ATOD 
08 11 000F BRB 1$ ~ sPROCESS COMMAND 


=a 
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mm 
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es De | 
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DD 
mm 
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, XT_ COMMAND Je 15-$ or 1382 $340 :08 ihe Macro v04-00 Page 


OF COMMAND 4-SEP- DCL.SRCJCOMMAND .MAR; 1 


i ° .SBTTL PROCESS REST OF COMMAND 
i | 3 DCLSCMDSTART = PROCESS REST OF COMMAND 
70 4 ; THIS ROUTINE IS THE CENTRAL COMMAND PARSE AND DISPATCH ROUTINE FOR THE 
11 175 3 STARLET DCLS COMMAND LANGUAGE INTERPRETER. IT INITIALIZES FOR THE COMPLETION 
11 126 ; OF THE CURRENT COMMAND LINE, READS AND PARSES THE COMMAND FOR SYNTACTIC 
i 4 ; CORRECTNESS, AND THEN EXECUTES THE APPROPRIATE IMAGE. 
1 173 : INPUTS: 
11 «181; FP = ADDRESS OF WRK STRUCTURE 
11 182: R11 = ADDRESS OF PRC STRUCTURE 
11 (183; WRK_L_CHARPTR(FP) = POINTER INTO COMMAND INPUT BUFFER 
11 184: WRK-G-BUFFER(FP) = COMMAND EXPANSION BUFFER 
1 5; WRK"G-INPBUF (FP) = COMMAND INPUT BUFFER 
on i ; : OUTPUTS: 
oi 189 ; COMMAND IS READ, PARSED, AND AN IMAGE IS ACTIVATED. 
011 191 ° 
at 19¢ DCLSCMDSTART: : ;COMMAND PROCESSING ENTRY POINT 
4 194 ; ALLOCATE AND INITIALIZE COMMAND SCRATCH WORK AREA 
9E $041 196 MOVAB WRK_K_LENGTH(FP), SP ZALLOCATE COMMAND IMPURE AREA 
0016 19 : AND RESET STACK POINTER 
ny!) O16 198 FP,R10 SSET BASE ADDRESS OF WRK 
98 0019 199 1$ MOVZBW PRC_B_PROMPTLEN(R11),- :SET PROMPT LENGTH 
1D 200 WRK—W~PMPTLEN(R10) ; 
9E 0 201 MOVAB PRC"W"PMPTCTRL(R11).- [SET PROMPT ADDRESS 
4 0¢ WRK-L ~PMPTADDR(R10) ; 
94 7 CLRB = PRC“B- CONTINUE (R11) SSET REGULAR PROMPT 
D5 a 04 TSTL PRCTLTINDEPTH(R11) SARE WE AT COMMAND LEVEL 0? 
12 5 BNEG = 2$ :NO, CHECK CRTL-Y FLAGS 
£0 07 BBS #PRC_V_MODE.PRC_W_FLAGS(R11),5$ ;SKIP IF BATCH MODE 
4 8 CLRB PRC_B_EXONLYL(RT1) CLEAR EX-ONLY FLAG 
11 9 209 BRB 5$ “USE 'S ' PROMPT 
F 10 2$ BBS #PRC_V_YLEVEL PRC_W_FLAGS(RI1) .5S SUSE "$ * IF CONTROL/Y LEVEL 
4 1 BBS #PRC-V~CNTRLY,PRC_W-FLAGS(R11),5$ ; (ALSO IF CTRL/Y JUST HIT) 
4 1g MOVE - #*A/~/SPRC_B_CONTINOE (R11) -NO == PROMPT STRING =‘ $° 
4 13 5$ MOVAB WRK_G_BUFFERTR10) .WRK_L_EXPANDPTR(R10) ;:SET ADDRESS OF EXPANSION BU 
5 14 VAB  WRK~G-RESULT(R10) ,WRK-L RSLNXT (RIO) 3SEt ADDRESS OF RESULT PARSE 
. 1000000( 5 15 MOVAB DCLSIRPUT,WRK_L_READRINTRIO) | ;SET RECORD INPUT ROUTINE 
00000000 9E 0061 1 MOVAB DCLSINPUT,WRK-L-PR TRINCRIQ) 3SET PROMPT ROUTINE 
00000006 9E 006 1 MOVAB DCLSSPECIAL WRK"L_SPECRTN(R10) :SET SPECIAL PROCESSING ROUTINE 
9E 1 MOVAB DCLSCHARERROR ,WRK-L FRRORRTN(R10S 3SET ERROR HANDLER ROUTINE 
oF 1 MOVAB DCL SERRORASG WRK_C_SIGNALRTN(R10) ;SET ERROR SIGNALING ROUTINE 
gt CLRW = WRK_W_FLAGS R19) sRESET COMMAND FLAGS 
1 CLRB  - WRKB“VALLEV(R10) TRESET VALUE LEVEL 
94 : CLRB  =- WRKB“CMDOPT (R10) SRESET OPTION NUMBER 
D4 CLRL =: WRKLRSLEND(R10) ZERO ADDR OF LAST TOKEN DESC 
D4 4 CLRL © WRK“L“QUABLK(R10) :2ERO QUABLK 
D4 5 CLRL = WRK“L“PROPTR(R10) SZERO PROPTR 
D4 6 CLRL = WRKL IMAGE (R10) 72ZERO ADDRESS OF IMAGE NAME 


J 


04-000 


68 
OOAF CB 


20 68 


F 
56 00E0 


25 Soar 
6 
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24 
44 8F 


BBCC #PRC_V corey oo -W_FLAGS(R11), 11$ sBRANCH IF NOT CONTROL Y/C 


BSBW DCL SCOCKED RESTORE LOCKED KEYPAD STATE 


CLRB 3s WRK_G NPBOF ( ABORT TWO-PART COMMAND IN PROGRESS 
MOVL PRCIL “ONCTLYCRITD, R1 :GET ADDRESS OF ACTION COMMAND 

BEQL ‘BR IF NO ACTION OUTSTANDING 
MOVZBL (Rt) ‘eet THE ADDRESS AND CC!NT 

MOV tatye WRK_G_INPBUF (R10) zMOV E COMMAND INTO BUFFER 

BRB ° § CLEAR GOTO, THEN PROCESS COMMAND 


108: senett OSS FLEVEL PACU FLAS (RTT) {SET CONTROL Y/C LEVEL 


= PROCESS NEXT COMMAND 15-SEP=-1 70 AX/VMS Macro v04-00 Page 6 
PROCESS REST OF COMMAND 2786p: 1382 $3 $9: 9 YoCL sR RCJCOMMAND .MAR; 1 . (4) 
7 CLRL WRK | PAROUT (R10) ;ZERO PAROUT 
g CLRB 4 =- WRKB -MINPARM(R10) 7ZERO MINPARM 
CLRB RK-B-MAXPARM(R10) 7ZERO MAXPARM 
0 CLRB RK-B-PARMCNT (R10) 7ZERO PARMCNT 
CLRB WRK _B_ PARMSUM(R10) :ZERO PARMSUM 
BICW #PRC_A_DISABL!- ZRE“ENABLE CONTROL Y/C‘'S 
PRC_A 1 fore rf _FLAGS(R11) sRE-ENABLE @ PROCESSING 
4 BICB #Prt_Ar 3; CLEAR ys GE RUN DEFAULT FLAG 
¥ PRC A "FLUSH. phe -B_FLAGS2(R11) sRESET FLUSH IN PROGRESS FLAG 
g RESET INTERACTIVE INPUT CONTROL FIELDS. 
0 . CLRB WRK_B_RECALLCNT(R10) 3ZERO RECALL COMMAND COUNT 
1 MOVL PRC- al “RECALLPTR(R11),= sCOPY RECALL PTR 
§ WRK=L ~RECALLPTR(R10) H 
4; 
5 ; CHECK FOR SPECIAL COMMAND PROCESSING CASES 
§ 3 PENDING CONTR ig 
H CHAINED COMMAND FROM CALLBACK 
3 : CHAINED IMAGE PROR CALLBACK 
3 : PENDING HANGUP 
; : IF CONTROL/Y PENDING, EXECUTE ‘'ON CONTROLY'’ STATEMENT 
4 
8 
9 
0 
4; 
5 


: IF CHAINED COMMAND OR CHAINED IMAGE, COPY COMMAND INTO COMMAND BUFFER 
: AND DEALLOCATE STORAGE USED BY THE CALLBACK TO HOLD THE COMMAND. 


UNAS SANTIS IS ORNS AE ER AS CENSUS UN SO PPPS LL LES 


8 i1s BSBW DCLSLOCKED STATE RESTORE LOCKED KEYPAD STATE 
MOVAQ G_ COMMAND (R11) ,R6 GET DESCRIPTOR OF COMMAND LI 

9 BBSC PPR OCHO PRC_B_FLAGS2(R11),1 3g 58 RANCH I IF USER COMMAND SETUP 
BBCC #PRC~V~CHAIN,PRC-B FLAGSZ(RIT) o$ :BRANCH IF NOT USER CHAIN 

: _O_TMAGE RiT).R6 ;GET D eScRbton OF IMAGE TO INVOKE 
SETBIT PRC"V"RUNDEF ,PRC_B_FLAGS2(R11) ;SET RUN DEFAULT 

4 13S:  MOVC  (R6T,04(R6),WRK_G_INPBUF(R10) SET OU RING IN BUFFER 

BSB DCLSALLDEACMD :GO DEALLOCATE THE SPACE 

B : IF CONTROL IS TO BE TRANSFERED TO AN ON-CONTROLY CONDITION OR A CHAINED 

; COMMAND, THEN TERMINATE ANY FORWARD GOTO IN PROGRESS. 
? 15s: MOVAB RK 6. NPB PBUF Fo 1 (R10) 7 :SET POINTER BEFORE RECORD 
5 BBCC PPRCCO COTO. PRC_W_FLAGS(R11),20$;CLEAR GOTO FLAG 


ee) 
er 
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FEES" 30 4 BSBW DCLSDEALGOTO sDEALLOCATE GOTO SYMBOL 


| 
$f IF A -HANGUP PENDING, THEN ABORT THE PROCESS. | 


20S: Ht HET ti HANGUP ,PRC_W_FLAGS(R11), ey ;1F SET, HANGUP PENDING 


Tie Det 


LOG THE PROCESS OUT 


+ IF A CHAINED IM AGE WAS SPECIFED, THEN PROCESS THE IMAGE IMMEDIATELY AND 
; AS A FOREIGN COMMAND. 

06 OUAF CB 03 1 228 BBC #PRC_V_RUNDEF ,PRC_B_FLAGS2(R11), 308 :BRANCH IF NOT CHAIN IMAGE 
FEDS’ 30 BSBW = DCLSMARK k CURRENT PARSE POSITION 
012A 31 BRW FORVERB ‘PARSE AS FOREIGN COMMAND 

: BEGIN PARSING INPUT 
: IF WE DON'T HAVE A COMMAND LINE YET, THEN FORCE AN INPUT TO HAPPEN. 
: LOOP TO RESTART IF THE INPUT IS NULL. STRIP OFF THE LEADING '$' 
: IF IT IS PRESENT 
FED2" 30 $0$:  BSBW OCLSSETNBLK :POINT TO NEXT NONBLANK CHARACTER 
6E BEQL SIF EQL NULL {LINE 
50 24S 35$:  CMPB #*A/$/,RO ;DOLLAR SIGN? 
18 «12 BNEQ 40$ IF NEQ NO-PROCESS THE COMMAN 
F486 CA F492 CA 3 MOVAB WRK_G BUFFERCRIO), WRK_L_EXPANDPTR(R10) ;RESET EXPANSION BUFFER POINT 
FEC1’ 3 BSBW s«éOCLL 3PUT DOLLAR SIGN IN BUFFER 
7C AB bp PUSHL PRC_L INpcLock(Ri1) SAVE CURRENT INDIRECT CHANGE ¢ 
FeBB 9 BSBW  OCLSSETNB [POINT AT NEXT NON-BLANK CHARACTER 
, ¥ BEQL ZBRANCH IF NULL LINE TO DCLSRESTART 
8E 7C a8 D1 PRC_L_INDCLOCK(R11),(SP)+ ; INDIRECT LEVEL CHANGE? 
E312 BNEG 35$ s1F YES-LOOK FOR LEADING DOLLAR SIGN 


GET THE FIRST TOKEN FROM THE COMMAND LINE. IT SHOULD BE EITHER A VERB, 
; A SYMBOL, OR A LABEL. 
ios: BSBw «OC SMARK :MARK CURRENT PARSE POSITION 
BSBW DCLSGETOKEN [GET COMMAND VE RB. SY mBOL OR LABEL 
BNEQ 41 ‘IF EQL NO TOKEN W 6 
BRW NOCOMD :SIGNAL BAD OO RMAND Line SYNTAX 
| 
: CHE CK FOR COLON TERMINATOR. IT COULD INDICATE EITHER A LABEL OR A NULL 
dis: CLRL = = (SP) ZASSUME TERMINATOR Is NOT A BLANK 
CHPBs#*A" *.RO [1S TERMINATOR A BLAN 
BNEQ 42% 3NO, THEN BRAN He 
6E 06 INCL SEf BLANK SEEN FLA 
FE98" 30 BSBW DELSSEIN [PEEK AT NEXT NON-BLAN 
CLRBIT PRC V * IND. PRC ~W_FLAGS(R11) *RESTORE INDIRECT 


cc ce cc me cee ec ce cc ce ce cere ee ce ce ce ce me me ee ee ee ee ee ee ee ee ee ee eB ed aed = od od dd od dd dD 
PAA AOA WANT BS BBB BEEBE ENNIO RPOPOPOPINONONONNY 9 
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PAAAAA AAAI EODINININPININPININIDD 2 I | MQOOOOOOCOOCOCOSOWOOOOVOOONOO 
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o 
=z 
v 
cr 


wa 
So 
onn 
— mm 
onms o 
oat Www 
mms =—Mmooe 
Soooooooooooooooooooooooooooooooo: 


NDI ON 
42$: CMPB #*A":* RO” LABEL OR Bi EQUATE TERMINATOR? 


N (SP) G | 
SEIBIT PRC V_ IND PRC_U _FLAGS(RIA} ; TEMPORARILY DISALLOW INDIRECTION 
BEQL 608 TBRANCH IF 


L ? 
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st. (spe :WAS BLANK SEEN? 

Bea 3S {BRANCH IF NO BLANK SEEN 

HOVE = #*A* "RO ERESTORE THE BLANK 

BSBW DCLSBACKUPCHAR 

438: BRW SYMBOL TELSE, VERB OR ASSIGNMENT STATEMENT 


| IF NULL LINE, THEN GET NEXT COMMAND. 
S0$: BRW DCLSRESTART :GET NEXT COMMAND 


; LABEL OR STRING ASSIGNMENT 


THE FIRST TOKEN WAS TERMINATED BY A ‘':''", IF IT IS NOT IMMEDIATELY FOLLOWED 
: .£., 1S A NULL NODE SPEC, IT MUST BE EITHER A 
ABEL OR THE SYMBOL NAME IN A STRING ASSIGNMENT. WE TEMPORARILY DISALLOW 


OL I IVI INMMMMMNOOUIAN— wu 
Se Ge Ge Ge Ge Ge Ge See 
ow 
< 
” 
o 


(COC 09 C9 Cd C9 09 C909 0900 090908 INI NINN NNN 


: INDIRECTION WHEN PEEKING GATT HE NEXT CHARACTER AFTER THE COLON, SO THAT IF 
: APPEARS JUST AFTER THE LABEL DON'T GET SHIFTED TO THE NEXT MEVEL 
: BEFORE WE GET A CHANCE TO PUT THE tkpet ENTRY IN THE RIGHT TABLE. 
FE7C’ 30 80$:  BSBW  DCLSMOVCHAR :MOVE CHARACTER TO COMMAND BUFFER 
SETBIT PRC V_IND,PRC_W_FLAGS(R11) i TEMPORARILY DISALLOW INDIRECTION 
FE75" 30 BSBW CLSSETCHAR “PEEK AT NEXT CHARACTER IN INPUT BUF 
CLRBIT Dat inbe PRC_W_FLAGS(R11) eRESTORE INDIRECTION 
50 3A 91 ChPBk* A? 7,R0- ;COLON N? 
A 13 BEQL § NULLNODE SIF EQL YES 
—E 05 TSTL (SP)+ SRESTORE THE STACK 
50 3D (O91 CMPB Os #'*A/=/,R0 SEQUAL SIGN? 
2— «13 BEQL 80$ :1F EQL YES 


LABEL 
SAVE THE LABEL IN THE SYMBOL TABLE. IF THE A LABEL OF THE SAME NAME WAS 


a : 
2 
, 


SINISE SSSA ADA AAA AD I ES EE 


=O OONAUE WIN $9 OONAUES WN O OONAUES WO OONAOULS Wh 


SRM SRSSSOSOOOOO ORO MD 


ALREADY FOUND, REPLACE IT WITH THE ONE WE HAVE JUST FOUND. 
0B £0 01 BBS PRC V_YLEVEL z1F SET, AT CONTROL Y/C LEVEL 
1A 68 AB 1 PRC_Q_FLAGS(R 11) ,69$ 
50 14AB 00 01 MOVL PRE : cINDINPRAB AIT) RO {DEVICE CHAR SAVED IN CURRENT RAB 
1418 a0 02 €0 01 BBS DEVSO_TRM,RABSL ~£TXERO) .658 [IF TRM, ISSUE WARNING MESSAGE 
0C 18 AO IC €1 BBC PDEVEV" AND RABSt “CTX(RO) 69S sf NOT RANDOM DEV VICE, IGNORE IT 
FE49* 30 01 BSBW DCL SALLOC LABEL SALLOCATE AND INSERT LABEL IN TABLE 
34 20 ; 1 BLBC 31 LBC ALLOCATION FAILURE 
FE54 031s 69$: BRW DCLSCMDSTART ‘START COMMAND OVER 
180 65$: ERRMSG NOLB LS ‘SIGNAL LABEL NOT ALLOWED HERE 
F111 BRB 69 : 
189 
1¢9 : STRING ASSIGNMENT 
1€9 + WE HAVE DETECTED A ‘':="" FOLL OWING THE FIRST TOKEN ON THE LINE. 
1¢9 : THEREFORE WE MUST BE ‘process ING A STRING ASSIGNMENT. 
FE34" 30 13 80s: BSBW BCL SEQUATE :PROCESS STRING EQUATE STATEMENT 
0 1€C BRB $ : 


COMMAND VERB 


WE HAVE DETERMINED THAT WE ARE PARSING A COMMAND THAT BEGINS WITH A VERB. 
TRANSLATE THE FIRST TOKEN ON THE COMMAND LINE (IF POSSIBLE). 


CV e Ge Se Se Sete 


DOO wooo oom OR Mee 


a 7 
C = PROCESS NEXT COMMAND 15-SEP-1984 23:40:03 YAX/VMS Macro V04-00 Page 9 
yose 00D PROCESS Rest OF COMMAND 4-5 sets 33:99:03 YOCL SRCICOMMAND MARS 1 - db 
if # 
1iCE | NULL NODE SPECIFICATION WAS FOUND. BACK UP PAST DOUBLE COLONS AND PROCESS 
Ice 4 ; AS A VERB. 
ite 403 NULLNODE: 
FEQF* 3 ce 4 BSBW DCLSBACKUPMOVE :BACK UP TO END OF VERB NAME 
D5 0101 4 TSTL (SP) ‘WAS BLAN 
13 0103 4 BEQL SYMBOL :BRANCH IF NO BLANK SEEN 
50 20 15 4 MOVE #*A° ",RO SRESTORE THE BLANK 
FEOS" 1B OCG BSBW DCLSBACKUPCHAR ; 
a 
1pB 41 $ COMMAND VERB, INTEGER ASSIGNMENT, SUBSTRING ASSIGNMENT, OR BITFIELD ASSIGNMENT 
1DB 413 : THE FIRST TOKEN WAS NOT TERMINATED BY A ‘':'', IT MUST BE EITHER A COMMAND VERB 
1DB 41 ; OR THE SYMBOL NAME IN AN INTEGER, SUBSTRING, OR BITFIELD ASSIGNMENT. 
1p8 41 : PROCESS INTEGER, SUBSTRING, OR BITFIELD ASSIGNMENT 
50 SB BSF 91 01 418 SYMBOL: CMPB = #*A/L/,RO ZSUBSTRING OF BIT FIELD SUBSTRING ASSIGNMENT 
05 12 1 41 BNEQ 120$ [IF NEQ NO 
FENG 3 oi BSB DCL SSUBASSIGN [PROCESS SUBSTRING OR BIT FIELD ASSIGNMENT 
50 sf 91 01 120$: CMPB #*A/=/,RO :SYMBOL ASSIGNMENT? 
12 1 BNEQ COMMAND SIF NEG N 
FE12° ; 1 BSBW DCLSEVALUATE SEVALUATE ARITHMETIC ASSIGNMENT STATEMENT 
0146 «(31 130$: BRW ERROR_EXIT ; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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PRI) 2 2 2 2OQQOOCOCOCOCO FR NTH NNN NHN HHH HMMMMMMNooO 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
Q 
06 433 COMMAND:PUSHR #*M<R1,R2> sSAVE COMMAND VERB PARAMETERS 
FEOA’ 30 4 BSBW  DCLSSYM_STRING SSEARCH FOR SYMBOL DEFINITION 
54 51 «7D 4 mOva , [SAVE VALUE PARAMETERS 
06 «BA 4 POPR #*<R1,R2> SRESTORE COMMAND VERB PARAMETERS 
54 S 4 TSTL RG [SYMBOL DEFINED AND HAVE VALUE? 
0 1 D 4 BNEG 135% SIF NEQ Y 
0083 3 F 43 BRW PRCVERB SIF NOT SYMBOL, SEARCH VERB TABLE 
441; 
4 : THE FIRST TOKEN IS A SYMBOL. GET ITS VALUE. 
F486 CA F492 CA 9E 444 135$: MOVAB WRK G _BUFFER(R10) ,WRK_L_EXPANDPTR(R10) ;RESET EXPANSION BUFFER POINT 
56 F48E CA 01 ci 44 ADDL3S #1,QRR_L_CHARPTR(R10)7R6 ;GET CHARACTER POINTER 
£5 1 Ee CMPB Oe #*A/ /7 (RO) sALREADY A BLANK HERE? 
13 2 44 BEQL 140$ SIF EQL YES 
76 44 MOVE #*A/ /,-(R6) SELSE INSERT A TRAILING BLANK 
FF A544 91 7 669.1408: CMPB #*A/°/5-1(R5)CR4) :DOES THE SYMBOL END WITH '? 
1 C 6 BNEQ 1508 [IF NEQ NO 
4 »® 4 DECL RG SELSE REMOVE THE * FROM THE SYMBOL 
6 D 4 INCL R6 3 AND REMOVE THE ADDED TRAILING BLANK 
56 . € 453 150$:  SUBL R4 RG [BACK UP OVER SYMBOL'S LENGTH 
FORE CA «656CiCséE 4 SUBL3 #1.R6,WRK_L_CHARPTR(R10) ;STORE NEW CHARACTER POINTER 
| 


04-000 


WODOWNIOMWSO 
SSSonsss 


=> 


12 


31 


FPPN—MOSPOw WD Ww 


>> 


PREP REE PWIND 


r~ 
COVMUM DW OUUIMIUIMUIIMIUIIUINOS & > 


PIED 


o 
=] 


et ty ty ty ty ty ty RPP PP 
Wr Pu POOOOWwnN 


“Wertees 
2 
o 
<= 
mn 
z 
ow 


opening mi tomy a8 ca Bi ect APS A one asa apie Nahar I eS ie ont ~n 


Rea tatai as alta at at ot ot ot ot ot ot ot ae at at ae ae ae a a a Me 


15-SEP=1 
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be 93:99:03 


; LOOK THE VERB UP IN THE COMMAND TABLES. 


BBC wPRC v_ WLEVEL., PRC - FLAGS(R11) 108 BR I 

BBC PSLSV~CURMOD , aP pact SAVAP(RI1$ 108° IF 
1 SETBIT precy TND,PRCW nest} -DISABLE “a 
11 108: G-CTLSAG er TTRBCES R ef ADDRESS OF 


cro V04-00 Page 10 


§ ORVERB: :COME HERE FOR FOREIGN VERBS 
8 MOVZBL #PTR_K_PARAMETR,R3 SSET TOKEN CONTEXT OF FILESPEC 
8 SBW DCLSPROCFILE PROCESS. FILE SPECIFICATION 
& BLBC RO, ERROR Faint F E SPECIFICATION ERROR 
8 SUBL apt C_LENGTH,WRK_L _RSUNKTIR ) CSO RESULT TOKEN DESCRIPTOR 
MOVa ss RV P) iSAV FILENAME DESCRIPTOR PARAMETERS 
8 BSBW  PROCFORN ROCESS FOREIGN COMMAND 
9 MOVE © #CLISK_VERB_FORE ,WRK_B_ vEResYetRION: >SET FOREIGN COMMAND 
9 POPR #*H<R17R2> SRESTORE FILENAME DESCRIPTOR PARAMETERS 
9 MOVZBL #1MG_K “EXTIMAGES*X7F, R3 :SET EXTERNAL IMAGE INDEX 
3 RW EXECEXT : 
9 : 
96 i : GET THE TRANSLATED COMMAND VERB 
98 tMDVERB: 
9 BSBW DCLSGETOKEN :GET COMMAND VERB TOKEN 
BNEQ :PROCEED IF VALID 
NOCOMD: STATUS NOCOMD TERROR IF NULL LINE 
ERROR: BRW ERROR_EXIT 


T Mac 
OF COMMAND 4-SEP-1 DCL.SRCJCOMMAND.MAR; 1 (4) 
OVC 4, (RS), (RO) -MOVE TRANSLATED COMMAND TO INPUT BUFFER 
SETBIT PREV 18D »PRC_W_FLAGS(R11) ; TEMPORARILY DISALLOW INDIRECTION 
SBW = DCL SSE TNBLK “SKIP OVER LEADING BLANKS 

CLRBIT PRC_V_IND,PRC_W_ FLags(Rti) jENABLE piNDIRECTI 
TSTB RO COMMAND NOP'D? 

6 BNEQ 152% ‘BR IF NOT 

6 BRW DCLSRESTART 

62 1528: CMPB #*A/a/,RO [PROCEDURE FILE? 

6 BNEQ 155$ SIF NEQ NO 

6 BRW DCLSCMDSTART SREAD FROM THE COMMAND FILE 

é 3 IF THE SYMBOL DEFINES A FOREIGN COMMAND, THEN PROCESS IT AS SUCH. 

68 ; OTHERWISE, SEARCH THE VERB TABLE FOR THE VERB. 

§ 155$: BSBW  OCLSMARK :MARK CURRENT PARSE POSITION 

7 BSBW DCLSSETNBLK ‘POINT TO NEXT NONBLANK CHARACTER 

7 CMPB Os #*A/$/,R [DOLLAR SIGN? 

, BNEQ CMDVERB IF 

f -DSABL LSB 

ae 

, : FOREIGN COMMAND 

4 ; PROCESS THE FILE SPECIFICATION AND THEN PROCESS THE REST OF THE COMMAND 

F 


alr - pro $$ + ie COMMAND 177 360- 138% $3: 40:03 pve Macro V04-00 Page ! 


CE T 1 
V PROCESS REST OF COMMAND DCL.SRCJCOMMAND MAR; 1 a 
FD63" 3 A 51 BSBW DCLSSEARCH_VERB :SEARCH VERB TABLE FOR VERB 
E2 $ 38 : i BLBC ROCERROR SBRANCH IF ERROR 
A 15 ; 
A 1 3 IF THE COMMAND IS DEFINED IN THE TABLES AS FOREIGN THEN PERFORM THE SPECIAL 
A ; COMMAND LINE PROCESSING. 
A i$ ; IF IT IS DEFINED AS IMMEDIATE MODE AND THEREFORE, SHOULD BE DISPATCHED 
A 9 ; IMMEDIATELY, DO IT NOW. 
A : ; OTHERWISE, PARSE THE COMMAND PARAMETERS AND QUALIFIERS. 
02 €1 O2A 4° BBC #CMD_V_FOREIGN,- :BRANCH IF NOT FOREIGN 
05 04 3 A 5 CMD_@ FLAGS(R85 ,20$ ; 
0307 30 O2A 6 BSBW = PROCFORN [PROCESS FOREIGN COMMAND 
26 «1 0 ag ; f BRB BUILD_IMAGE SPROCESS THE IMAGE NAME 
OF 94 AS 03 €1 O2AA 529 208: BBC #CMD_V_IMMED,CMD_W_FLAGS(R8),30$;8R IF NOT IMMEDIATE 
2 €2 AA DO O2AF 530 MOVL WRK_C_IMAGE(R10)7R2 [GET ADDR OF ASCIC ROUTINE NAME 
51 9A 0283 531 MOVZBL (R23¢7R :GET COUNT IN R1, ADDRESS IN R2 
0336 30 0286 33g BSBW DCLSLOCATE_INTERNAL SLOCATE INTERNAL ROUTINE INDEX 
C6 50 £9 0289 33 BLBC RO, ERROR :BRANCH IF ERROR 
3c et 334 BRB IMMED ‘DISPATCH THE IMMEDIATE COMMAND 
FD3F* 30 O2BE 536 30$:  BSBW §DCLSPARSE COMMAND :PARSE THE COMMAND QUALS AND PARMS 
00038080 8F 50 01 O5¢i 537 CMPL RO, #CLI$_NOCOMD ‘IF CTRL/Z WAS ENTERED, 
12 02¢8 538 BNEQ 40 [THEN GET A NEW COMMAND 
FD 31 O2CA 539 BRW DCLSRESTART ; 
B2 50 «=E9 cD sf 40$:  6LBC RO, ERROR ‘SIGNAL ANY SYNTAX ERRORS 
D 42 ; 
3 548 ; BUILD THE IMAGE/ROUTINE NAME DESCRIPTOR 
ti 545 BUILD_IMAGE: 
52 €2 AA 00 9 D0 «546 MOVL WRK_L_IMAGE(R10).R2 :GET IMAGE/ROUTINE ASCIC NAME ADDRES 
1 82 9A 0204 547 MOVZBL (R23+-, ‘GET COUNT IN R1, ADDRESS IN R2 
53 OE'BF 9A 0207 548 MOVZBL #IMG_K_EXTIMAGE®*X7F .R3 TASSUME EXTERNAL IMAGE 
00 €0 O2DB 549 BBS #URK-V"CLIRTN,= :BRANCH IF INTERNAL ROUTINE 
02 F2 AA 9200 550 WRK _@ FLAGS2(R10),5$ 3 
11 0260 551 BRB EXECERT SEXECUTE EXTERNAL COMMAND 
030A 30 0 Eg 238 5$: BSBW DCLSLOCATE_INTERNAL SLOCATE INTERNAL ROUTINE INDEX 
9a 50 £€9 0 : 333 BLBC RO, ERROR SBRANCH IF ERROR 
E 55; 
E : : SORT TOKEN DESCRIPTOR TABLE INTO CMDQUAL,PARM,PARMQUAL ORDER 
: : 3 FOR INTERNAL CLI ROUTINES TO MAKE GETDVAL PROCESSING EASIER. 
53 bp E 38 : PUSHL R3 :SAVE COMMAND INDEX 
FD13" 30 EA 60 BSBW DELSSORT_ TOKENS sSORT DESCRIPTOR TABLE 
53 8—D0 ED 61 POPL R sRESTORE COMMAND INDEX 
F 86 EXECEXT: 
F 64 SETBIT WRK_V_COMMAND,WRK_W_FLAGS(R10) ;SET COMMAND EXECUTION IN PROGRESS 
BA AA F9B6 CA 9E FA és MOVAB  WRK"G"RESULT(R10)-WRK_L_RSLNXT(R10) ;RESET NEXT TOKEN TO RETRIEVE 
FA 67 ; | 
FA 568 : INTERNAL COMMAND PARAMETERS: | 
| 


a - —y 


re TEREEISEL HESBSEE RLM tana BSR, MH 


= LENGTH OF IMAGE FILENAME (IF ANY). | 
Re = ADDRESS OF IMAGE FILENAME (IF ANY). | 
R8 AND RO ARE SET UP AFTER THE CONDITIONAL RUNDOWN CALL BELOW 
ny: = rtd dt OF rebi BUFFER DESCRIPTOR. 
ADDRESS OF SCRATCH STACK. 
= BASE ADDRESS OF COMMAND WORK AREA. 
Rid = BASE ADDRESS OF PROCESS WORK AREA. 
IMMEDIATE COMMAND PARAMETERS: 


R10 = BASE ADDRESS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


SNNNNINNNNO Ot 


IMMED: DIATE COMMAND EXECUTION 


; IMM 
23 OOAF CB «04S BBC #PRC_V_PRIV,PRC_B_FLAGS2(R1 15 -10$ ;BR IF UNPRIVILEGED IMAGE 


; NEED TO RUN DOWN PRIVILEGED IMAGE, BUT ALLOW THE FOLLOWING COMMANDS 


53 03°8F 1 cHPB #IMG_K_CONTINUE & “N7F ARS CONTINUE COMMAND? 
53 28° 8F 4 CHPB #ING_K_SPAWN & “X7F,R3 : SPAWN COMMAND? 
53 29° 8 4 CPE #1NG_ K_ATTACH & “X7F,R3 ATTACH COMMAND? 
05 FO AA 01 3 BBCS  #WRK_V COMMAND , WRK_W -FLAGS(R10) $ 
FCE6" 30 BSBW DCLSFORCEX ;RUN DOWN THE PRIVILEGED IMAGE 
07 «11 BRB 10$ : 
2s: BSBW  DCLSFORCEXIT :RUN DOWN THE PRIVILEGED IMAGE 


CLRBIT WRK_V_COMMAND,WRK_W_FLAGS(R10) 


AFM OOO NOMAR I ODWOd GRU ODO MOU UNIO ~ 


: SETUP SCRATCH STORAGE FOR USE BY INTERNAL ROUTINES 
10$: MOVL 


DRPQRDPP PPP DPA APP AAPA DAP D DDD PPD DEPTS SSVI TSSOP 


DOWNS FB NNN NINES DBD OMMMIUWIWIAMOO SP NNVOOPOSLOCCCO,?>? YY YP Yr PY YY r>rrirr,r,rrr wu 
PIPPIN 2 9 9 tt * "QOODOOOOOO 0000000000 00000090000 00 6000 CDCD 


BE FWA AAA AAAI IRIRINININININ 4 = = 3 3 BOQ OOOO DOO AFF FF 0 NF FF PF 


8 SP,R9 ;SET ADDRESS OF SCRATCH STACK 
9 MOVAB <WRK_C_SCRSTKSIZ(SP),SP ;ALLOCATE SCRATCH AREA BEFORE STACK 
0 PUSHAB (SP) ;BUILD SCRATCH BUFFER DESCRIPTOR 
1 MOVZWL #WRK_C_SCRSTKSIZ,-(SP) 
; MOVL  SP.R :SET ADDRESS OF SCRATCH BUFFER DESCRIPTOR 
; BSBB = IMAGECASE ZEXECUTE INTERNAL IMAGE 
2 3 
6 i THE FOLLOWING CODE IS DUPLICATED IN IMAGEXECT FOR EXTERNAL IMAGES 

; BECAUSE IT MUST BE DONE BEFORE IMAGE RUNDOWN, NOT AFTERWARDS. 
ERROR_EXIT: SERROR EXIT 
0 BLBS RO, 108 :IF LBS SUCCESSFUL COMPLETION 
1 BSBW © DCLSERRORMSG SOUTPUT SYSTEM ERROR MESSAGE 
é 10$:  JSB DCLSSET_STATUS :SET COMPLETION STATUS 

DCLSFLUSH FLUSH COMMAND BUFFER 

4 DCLSRESTART : | 


a oe YF 


D 8 
1S-SEP=1984 23:40:03 YAX/VMS Macro V04-00 Page 13 
COMMAND oa SEb=1984 93:39:43 EDELYSRCICOMMAND MAR: 1 ment 


nm 


vO4~000 


o- 


REST OF 
49 627 MACRO INTIMAGE NAME 
49 68 sWORD | XXXS'NAME'=108 
49 ING K NAME = SINT IMAGES 
49 630 SINTIMAGES = SINTIMAGES + 1 
49 631 -ENDM 
29839 IMAGECASE: | 
35°8F 00 53 49 634 CASEB 3, #0, #<908-108>/2-1 
OC Pee Ee an oe :BASE ADDRESS OF CASE TABLE 
“e637 INTIMAGES :GENERATE INTERNAL IMAGE CASE TABLE 
4 -WORD  HAXSALLOCATE=10S 
5 “WORD — XXXSASSIGN=10S 
2 “WORD — XXX$CLOSE-108 
m “WORD — XXXSCONTINUE-10$ 
36 “WORD — XXXSDEALLOCAT=10S 
5 “WORD — XXXSDEASSIGN-10$ 
SA “WORD — XXXSDEBUG- 
5¢ “WORD — XXXSDECK=1 
oe “WORD — XXXSDEFINE-10$ 
6 “WORD —- XXXSDEPOSIT~10$ 
62 “WORD — XXXSDELSYM-10S 
64 “WORD XXXSEOD-10 
66 “WORD — XXXSEXAMINE=10$ 
68 SWORD XXXSEXIT=1 
6A “WORD — XXXSEXTIMAGE-10S 
6C “WORD — XXX$GOTO=1 
6 “WORD —-XXXSIF=10 
0 7 “WORD — XXXSINQUIRE~10$ 
0 ? “WORD — XXX$LOGOUT= 
74 “WORD —-XXXSHCR=10 
0 76 “WORD — XXXSON-1 
O0F0: 0378 “WORD — XXXSOPEN-10$ 
F6" O37A “WORD  XXX$READ-10$ 
OOFC* 037¢ “WORD — XXX$RUN=10 
0108" O3ze “WORD — XXXSSETCTLY-10$ 
0108 0380 “WORD XXXSSETDEFALT~108 
10E* 0382 “WORD — XXXSSETON-10$ 
116° 0584 SWORD —_ XXXSSETPROT~10S 
11A' 0386 “WORD —- KXXSSETUIC-108 
0120° 0388 “WORD — XXXSSETVERIFY~108 
0126) 058A “WORD —- XXXSSHOWDEF -10$ 
12C* 038C “WORD  XXXS$SHOWPROT-108 
138 O38 “WORD — XXXS$SHOWQUOTA=10$ 
138° “WORD — XXXSSHOWSTAT~10$ 
156) 0392 “WORD — XXXSSHOWSYMBL-10S 
144° 0394 “WORD XXXSSHOWTIME~10$ 
14a 039 “WORD — XXXSSHOWTRAN-10S 
150° 039 “WORD —-XXX$STOP-10$ 
136) 059A “WORD XXXSWAIT=1 
15¢* 039¢ “WORD — XXXSWRITE-108 
162" 039 ‘WORD KXXSSPAUN=108 
168° O3A “WORD XXXSATTACH= 10S 
166° O5A “WORD x =10 
174° O3A “WORD — XXXSCANCEL-108 
17A° OSA “WORD — XXXSSETPROMPT~108 
180° O3A “WORD —_ XXXSRECALL~108 


— 8 
COMMAND = PROCESS NEXT COMMAND 15-SEP-1984 23:40: AX/VMS Macro V04-00 Page 
voe-000 PROCESS Rest OF COMMAND 4-SEP-1984 3:49:43 EOCLYSRCICOMMAND MAR; 1 . 
186° QSAA «WORD lab y Ady 
18C° QSAC «WORD XXXSSHOWKEY-10$ 
192° OSA «WORD bd oy td he 
198° ~WORD XXXSSETKEY-10$ 
+ 8 «WORD XXXSSETFLUSH-10$ 
1A4° 038 «WORD XXXSCRETABLE-10$ 
1AA‘ ~WORD XXXSCONNECT-10 
180° «WORD XXXSDISCONNECT-10$ 
638 «NLIST MEB 
50 0000°8F 3 4 oy 90S: poyeut. #SS$_ILLSER,RO sSET SERVICE ERROR 
£6 23 sMACRO INTIMAGE NAME 
CO 644 XXXS"NAME': J DCLS*NAME ° 
Q3C 645 IMG_K ‘NAME = SINTIMAGES 
8 C 066 SINTIMAGES = SINTIMAGES + 1 
C 64 -ENDM 
C 268 
C 64 LIST MEB 
C 650 INTIMAGES GENERATE INTERNAL IMAGE CASE TABLE 
17 C XXXSALLOCATE: JMP DCLSALLOCATE 
17 03C6 XXXSASSIGN: JMP DCLSASSIGN 
17 cc XXXS$CLOSE : JMP DCLSCLOSE 
17 be XXXS$CONT INUE JMP DCLSCONT INUE 
17 D XXXSDEALLOCAT: JMP DCLSDEALLOCAT 
17 Q3DE XXXS$SDEASSIGN JMP DCLSDEASSIGN 
17 0364 DEBUG JMP DCLSDEBUG 
17 8 EA ECK: JMP DCLSDECK 
17 FO XXXSDEF INE: JMP DCLSDEF INE 
17 O3F6 XXXSDEPOSIT: JMP DCLSDEPOSIT 
17 F XXXSDELSYM: JMP DCLSDELSYM 
17 040 XXXSEOD: JMP DCLSEOD 
17 040 XXXSEXAMINE : JMP DCLSEXAMINE 
17 040E T: MP DCLSEXIT 
17 14 XXXSEXTIMAGE: JMP DCLSEXT IMAGE 
17 1A XXX$GOTO: MP DCLSGOTO 
17 0420 XXXSIF: JMP OCLSIF 
17 6 XXXSINQUIRE : MP DCLSINQUIRE 
17 XX$LOGOUT: MP DCL$LOGOUT 
17 XSMCR: JMP DCLSMCR 
17 04 XXXSON: JMP DCLSON 
17 E XXXSOPEN: JMP DCLSOPEN 
17 44 XXXSREAD: JMP DCLSREAD 
17 Q44A XSRUN: JMP DCLSRUN 
17 £20 XXXSSETCTLY: JMP DCLSSETCTLY 
17 0456 XXSSETDEFALT: JMP DCLSSETDEFALT 
17 5 XXX$SETON: JAP DCLSSETON 
17 6 XXXSSETPROT: JMP DCLSSETPROT 
17 046 XXX$SETUIC: JMP DCLSSETUIC 
17 $F SSETVERIFY: JMP DCLSSETVERIFY 
17 & SHOWDEF : JMP DCLSSHOWDEF 
17 Q47A XXXSSHOWPROT JAP Hig tiberety d 
17 0480 S$SHOWQUOT JAP DCLSSHOWQUOT 
17 6 XXXSSHOWSTAT:  JMP Tg thar tel 
17 04 § XXXSSHOWSYMBL: JAP DCLSSHOWS YMBL 
17 04 XXXSSHOWTIME: JMP DCLSSHOWT IME 
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C = PROCESS NEXT COMMAND 15-SEP-1984 23:40: AX/VMS Macro V04-00 Page 16 
yosr000 CALL LOGINOUT TO ABORT THE PROCESS 2786521382 33:39:03 YOCL SRCICOMMAND “MARS 1 se 6) 
4 rs .SBTTL CALL LOGINOUT TO ABORT THE PROCESS 
4 : DCLSABORT 
4 : : CONTROL IS TRANSFERRED HERE TO ABORT THE PROCESS BY CALLING 
SF : : THE LOGINOUT IMAGE. CARE IS TAKEN TO SETUP THE RESULT 
4 659 : PARSE DESCRIPTORS SO THAT LOGINOUT CAN USE RESULT PARSING 
3 4 660 ; AS IF LOGOUT WAS GIVEN AS A COMMAND LINE. 
5 4 66¢ : INPUTS: 
4 : NON 
oe 
504 687 DCLSEOJ: 
304 8 DCLSABORT 
F9B6 CA «9E «(0504 66 WRK_G_RESULT(R10),- ;RESET RESULT ARRAY PTR 
BA AA 0508 670 WRKL-RSLNXT (R10) : 
52. £492 CA 9E 050A 671 MOVAB WRK~G-BUFFER(R10),R2 | :GET ADDRESS OF EXPANSION BUFFER 
DO 050F 676 MOVL  R2,QRR_L_EXPANDPTR(R10) :RESET EXPANSION PT 
62 4F474F4C BF DO 0514 ~=«67 MOVL #7 A° LOGO" (Re) 'STORE VERB INTO BUFFER 
DO 051B 674 MOV #4,R 7SET LENGTH OF VERB 
E2 AA O0000000'EF 9 O51E 675 MOVAB_ LOGOUT,WRK_L_IMAGE(R10) :SET ROUTINE IN CASE NOT FOUND 
05 6 676 SETBIT WRK V_CLIRTN;WRK W_FLAGS2(R10) 
58 00000000'GF 00 520A O67 MOVL G*CTLSAG_CLITABLE,R8  § ;GET ADDRESS OF DATA BASE VECTOR 
FACC' 30 0531 678 BSBW  DCLSSEARTH_VERB SLOCATE COMMAND DEFINITION FOR 
534 679 [LOGOUT CLI INTERFACE (IGNORE ERRORS) 
FAC" 30 234 680 BSBW DCLSGENEOL [CREATE AN EOL TOKEN 
F096 «= -31—«0537—Ss 681 BRW BUILD_ IMAGE [PROCESS LOGOUT COMMAND 


eC CC CC CC CC OL LLL LL LD 
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DCLSDECK:: : 
ao IVVALU ; ASSUME ERROR WAS INVALID VALUE 


i 
A 3 = ~SBTTL EOD/DECK COMMANDS 
A : ; DCLSEOD/DCLSDECK 
A ‘ 37 THESE COMMANDS ARE PROCESSED BY RMS AND SHOULD NOT BE SEEN BY THE CLI. 
A : ; RMS PASSES THEM THROUGH IF THE SYNTAX OR VALUE IS BAD. ONE CASE IS 
A ; NOT TREATED AS AN ERROR, THAT IS "EOD" ALONE ON A LINE. THIS COULD 
A i i ; HAPPEN IF THE STATEMENT “WAS ENTERED WITHOUT AN IMAGE RUN. 
A 692° 
j A 38 DCLSEOD:: 
FACS" 39 4 34 BS DCLSSETNBLK tLOOK FOR NEXT CHARATER IN LINE 
D 69 BNEQ OCLSDECK ‘BR IF NOT A A NUL L LINE 
F 636 STATUS NORMAL [SET OK STAT 
05 346 69 RSB : 
20> 898 
547 $80 
054E 701 


1 8 
AE sr reve TERRI ASST Tea, UE 
- «SBTTL CHECK FOR CONTROL Y/C AST PENDING 
: DCLSCHECK_AST = CHECK FOR CONTROL Y/C AST PENDING 
; THIS ROUTINE IS CALLED TO CHECK FOR A PENDING CONTROL Y/C AST. 


] 
: | 
3 INPUTS: | 
NONE. 


oz 


3 
SSN =< 


: OUTPUTS: 
NG, THEN CONTROL IS TRANSFERED TO THE COMMAND 

E €ONTROL IS RETURNED TO THE CALLER. 

-ENABL LSB 


CLSCHECK_AST:: 
8 #PRC_V_CNTRLY,PRC_W_FLAGS(R11) 
O$:  BRW DCLSRESTART ; 
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TA foe PENDING CONTROL Y/C AST 


-90$ ;1F CLR, NO CONTROL Y/C REQUEST 
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XT COMMAND 
LE CONTROL Y/C AST'S 4-SEP- 
‘ »SBTTL ENABLE/DISABLE CONTROL Y/C AST'S 
: DCLSDISABLE = DISABLE CONTROL Y/C AST'S 
THIS ROUTINE IS CALLED TO DISABLE/ENABLE CONTROL Y/C AST'S. 
INPUTS: 
NONE. 
OUTPUTS: 


AST STATE IS RESTORED TO ITS VALUE BEFORE THE DISABLE. 
ALL REGISTERS ARE PRESERVED ACROSS CALL 


CLSDISABLE:: :DISABLE CONTROL Y/C AST'S 
PUSHL (SP) [COPY RETURN ADDRESS 

45 MOVZWL PRC_W_FLAGS(R11),4(SP) :SAVE PREVIOUS DISABLE STATE 
46 SETBIT PRC-V-DISABL,PRC_W_FLAGS(R11) ;DISABLE CONTROL Y/C 
4 JSB a(SP)F :CALL THE CALLER BACK 
48 BBS #PRC_V_DISABL.4(SP),40$ ;:IF SET, AST'S PREVIOUSLY DISABLED 
49 BBS #PRC-V-YLEVEL -PRC_W._FLAGS(R11) ,00$ 
50 TSTL PRC_C_INDEPTH(R113 SINDIRECT LEVEL 2 
51 BNEG 30$ “IF NEQ NO 
3g 20s: WPRC_V_CNTRLY,PRC_W_FLAGS(R11),10$ IF 
53 30$: CLRBIT PRC_0_BISABL,PRC_@_FLAGS(R11) :ENABLE CONTROL Y/C AST'S 
54 40S: SP SREMOVE PREVIOUS STATE FROM STACK 
55 50$:  RSB : 
56 .DSABL LSB 


RSEP=H9RE BSi99:23 LOCC SR CHRGmmaND aR; 


CONTROL Y/C AST'S ARE DISABLED, THE PREVIOUS ENABLE STATE IS SAVED, AND 
CO-ROUTINE CALL IS MADE BACK TO THE CALLER. WHEN CONTROL RETURNS, THE 


-1F SET, AT CONTROL Y/C LEVEL 
ERO? 


SET, CONTROL Y/C REQUEST 


EE 
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= PROCESS NEXT COMMAND 15*SEP-1984 23:40: AX/VMS Macro V04-00 Page 
FLUSH COMMAND BUFFER 4-5 sats ri 33:39:03 LOCL SRCICOMMAND MARS 1 ° 40) | 
5 a .SBTTL FLUSH COMMAND BUFFER | 
; DCLSFLUSH = FLUSH COMMAND BUFFER | 
: THIS ROUTINE IS CALLED TO READ CHARACTERS FROM THE COMMAND BUFFER UNTIL AN 
6 ; END OF LINE 1S ENCOUNTERED. 
2 res + INPUTS: 
5 ree : NONE. 
i : OUTPUTS: 
5 771: INDIRECT FILE RECOGNITION IS DISABLED AND CHARACTERS ARE READ FROM THE 
3 ite ; INPUT BUFFER UNTIL AN END OF LINE IS ENCOUNTERED. 
5 774 ° 
5 775 DCLSFLUSH:: FLUSH COMMAND BUFFER 
29 68 AB «0B)C#éEO «O05 0 176 BBS #PRC_V_YLEVEL,PRC_W_FLAGS(R11),20$ ; IF AT “Y LEVEL DON'T FLUSH 
0 1% DO 05 77 MOVL PRC : INDINPRAB(RT13,RO ; Ger CURRENT INPUT RAB 
2018 ao (OO 3 589 178 BBS #DEUS0_TRM RABSL CTX(RO),20$ ; LIKEWISE FOR TERMINAL 
F486 CA F492 CA SE 05 : 77 MOVAB_ WRK_G_BUFFER(R10) ,WRK_L EXPANDPTR(RI ) :SET BUFFER TO RECEIVE ANY CO 
595 780 SETBIT PRC-V-IND,PRC_W_FLAGSTRT1) jDISABLE INDIRECT FILE RECOGNITION 
0599 781 SETBIT PRC~V"FLUSH,PRC_B_FLAGS2(R11) ;SET FLUSH IN PROGRESS 
FASE’ 79 59F 7 ¢ 10S: BSBW DELSGETCHAR :GET CHARACTER FROM INPUT BUFFER 
FB O12 «(0Sa2=—7 BNEQ 108 “IF NEQ NOT END OF LINE 
5a4 784 CLRBIT PRC_V_FLUSH,PRC_B_FLAGS2(R11) ;RESET FLUSH IN PROGRESS FLAG 
- O>AA 185 - CLRBIT PRC-V"IND,PRC_W-FCAGS(R11) ;ENABLE INDIRECT FILE RECOGNITION 
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GOQQGQOQOQOCOQOQOOoQoooooooooQooooooOoOoOoOoOOOOOOOOOoOO 
iw 
@ & > 
~ Se ba] 


VIVA AMAIA 
WMD VINOD LWVOS PO L—™M 


MMmMMMoOCVOVIVTITIOAOMOOOoow 


9.0069 09 C9 0D Gd Gd Cd C9 GD CO CD CO CD C9 CD C9 CD CD CD C9 C9 0D C9 0D CDOS COCO III NIN INIININININ 


] 
L 8 | 
T COMMAND 15-SEP-1984 23:40:03 VAX/VMS Macro V04-00 Page 21 
GN COMMAND 27865-1383 33:99:03 LOLLY SRCICOMMAND MARS 1 . d,| 
i ~SBTTL PROCESS FOREIGN COMMAND | 
4 : PROCFORN = GENERATE RESULT DESCRIPTOR FOR FOREIGN COMMAND LINE 
92 : PROCESS FOREIGN COMMAND AND BUILD TOKEN DESCRIPTOR 
3 ; FOR THE REST OF THE LINE AFTER THE VERB. 
99 : INPUTS: 
3 : NONE 
$3 : OUTPUTS: 
01: A TOKEN DESCRIPTOR IS GENERATED FOR THE REST OF THE LINE AND 
08 : A TOKEN DESCRIPTOR IS GENERATED FOR THE END OF E. 
04 — 
06 PROCFORN: *PROCESS FOREIGN COMMAND 
0 SETBIT PRC_V_IND,PRC_W_FLAGS(R11) ;DISABLE INDIRECT FILE INTERPRETATION 
08 BSBW DCLSSETCHAR :PEEK AT NEXT CHARACTER IN INPUT BUFFER 
09 CMPB sO, #*A* ° ‘BLANK 
10 BNEQ 5$ sBRANCH IF NO LEADING BLANK 
11 BSBW DCLSMOVCHAR sMOVE BLANK BEFORE MARK 
19 S$: BSBW DCLSMARK ZMARK POSITION AFTER FILESPEC & BLANK 
13 10$ BSBW DCLSMOVCHAR ZMOVE CHARACTER TO COMMAND BUFFER 
14 BNEQ 10$ ‘UNTIL END OF LINE 
15 DECL § WRK_L_EXPANDPTR(R10) 3BACKUP OVER EOL CHARACTER 
16 BSBW DCLSMARKEDTOKEN 3GET DESCRIPTOR OF REST OF LINE 
1 MOVQ = R1R7 sCOPY DESCRIPTOR 
18 CLRL = RG :CLEAR ITEM NUMBER 
1 CLRL = s «RG *CLEAR FLAGS 
0 CLRL =. RO :CLEAR ENTITY BLOCK ADDRESS 
1 MOVZBL #PTR_K_PARAMETR,RS 7SET ITEM TYPE TO PARAMETER 
2 BSBW  OCLSGENDESCR [GENERATE RESULT PARSE TABLE DESCRIPTOR 
MOVZBL #PTR_K_ENDLINE,RS 3SET ITEM TYPE TO END OF LINE 
4 MOVZBL #1,R7 :SET LENGTH OF ITEM 
5 MOVL WRK_L_EXPANDPTR(R10),R8 :SET STARTING ADDRESS OF ITEM 
$ BSBW DCLSGENDESCR “GENERATE RESULT PARSE DESCRIPTOR 
, CLRBIT PRC_V_IND,PRC_W_FLAGS(R11) ;ENABLE INDIRECT FILE INTERPRETATION 
9 a 
| 
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4-SEP- 


«SBTTL GET INTERNAL ROUTINE INDEX 
DCLSLOCATE_INTERNAL = GET INDEX FROM INTERNAL ROUTINE TABLE 


THIS ROUTINE SEARCHES THE TABLE OF INTERNAL ROUTINES FOR A SPECIFIED STRING. 
IF FOUND, THE INDEX OF THAT STRING IS RETURNED, sateen teramet Sey 


R1/R2 = ROUTINE NAME DESCRIPTOR 


STATUS 


7 = U 
R35 = INDEX NUMBER 
R4 IS DESTROYED 


) 
(R3) .=(SP) 
axe (SP) 


#8,R1 
#ROUTINES_LEN,R4 


MOVL 
MATCHC R1,(SP),R&,ROUTINES 
BNEQ 208 


(SP)+ 
(SP)+,R1 


1$_INVROUT ,RO 


DCL.SRCJCOMMAND .MAR; 1 


SAVE R1/R2 

GET ROUTINE NAME 

SET HIGH ORDER BIT TO FORCE ROUTINE MATCH 
ROUTINE LENGTH GREATER THAN 8? 

BRANCH IF NOT 

SET LENGTH EQUAL 8 

SET TABLE LENGTH 

FIND SPECIFIED ROUTINE 

BRANCH IF NO MATCH 

ROUND REMAINING LENGTH UP 


CALCULATE RELATIVE POSITION OF MATCH 
DIVIDE er 8 TO GET INDEX INTO R3 


ro V04- OR: Page 23 
om -mocESS NEXT com EABIMN SOG UME ears, de 
Symbol table 
aeeneene 
SINT TRAGES .f 99008 gt Blo aeeneene x 
mts ieee CLSHYPHEN ekeeenee x 
SNAM a asiedetr e CLSIF eeeeeeee 86 
BUILD. IRAG eee 83 CLSINP Reekeeee xX 
CLI VERS FORE ooo. . ec ¢ teeeeeee x 
CLIS_INV : 8 ec OOOO0SEF R 
CLIS IVY ob cL aeeneere YX 
CLIS_NO oa 1 cL eeneerer 
CLIS_ rt va ‘i cL ‘ aenereee = §=6¥ 
CLIS- NORMA - 03 CLSM aereeeee § 
CMOVERB CLM eeneeeee 8 §6\ 
CMD _V_FOREIGN vd cL eeneeeee =X 
CAD _V_JMMED = i CL eeeeeeer =X 
CMD _W FLAGS . B88 1F1 CL . aeeneere § 
COMMARD 00001F1 R x 8 CL$P aereeeee §6X 
cee GO STABLE 00000504 ac 0 CL$P aeeeeeee = § ¥ ; 
eeeeeeee x 
DCLSALLDEACMD teeneene =X th RE eecceeee YX O68 
ee San — i bd saisas nat 
eeerenee 
DCLSASSIGN weeecece &§ DCL eeeneeee 
OCLSATTACH een 03 perese coos fF 
DCL SBACKUPCHAR eocmmne Sg DCLSSE qocmore FT 
aeerener 
CANCE tr te te te Oe te x 03 DCL eres 
DCLSCHARERROR socoesar age Stet tat cecceese KOS 
DCLSCHECK_AST ncoree ty DCLSSE eeneeere X03 
LSCLOSE ebewes x 03 DCLSSETON aeeneeee = =X 3 
ep ria| seorsees OOS DCLSSETPROT were i 
aeekenee 
DCLSCRETABLE sereeees 08 BELESENVEEY tierce 1 3 
eeenerer x 
DCLSDEALLOCAT eeeeeeee KX 0 DCL an : eeceneee XO 
DCLSDEASSI ereneeee KX 0 DCLSSHOWDE eeceneee § 6 
DCLSDEBUG 00000547 x 8 4a ela aereeere YX 0 
or eer Gooeeeee. 's 0 DCL$SHOWQUOTA etestere Xx 
aeereren YX 
DCLSDEFKEY eeeeenee 8X DCLSSHOWSTAT sees. a A 
DCLSDELKEY eee X pete a eeereeee 
OCLSDELSYM tee ii : DCLSSHOWTRA ateeneee YX 
OCLSDE — 7 DCL$ aeeneere YX 0 
DCLSDISABLE 00000557 - DCL aeeeerer YX 
DCLSDISCONNECT ee ig ttn teneeeee x 
OCLSEOD 000 334 RG DCL$STOP eeenenne x 
DCLSEOJ 9000306 DCLSSUBASS seedecse§ §6f 
OCLSEQUATE ees rr x DCLSSYM ST aeeeneee = § ¥ 
DCLSERRORMSG remnants 4a OCLSUAIT taeeeeee =X 
DCLSEVALUATE poems. a DCLSURITE aeeeeeee X 0 
DELSEXIT. emer DEVEV AND = 9000001 
DCLSEXT IMAGE eeereeee athe TRA a 
DCLSFLUSH 00000580 RG ERROR EXIT R 
OCLSFORCEXIT eeeeeeee x EXECERT fF R 
DELSCENEOL cececees FORVERE 55 R 
ste tsiyaa eeeereee IMAGECASE 49 R 


aver 
oo 


HB), 


Page 


03 eter Macro v04-00 
4 DCL.SRCJCOMMAND .MAR; 1 


33:49: 


9 


= PROCESS NEXT COMMAND 


Y 
~ 
2 
ao 
ow 
3 
~ 
”n 


COMMAND 


MMANDS 


=e 

jaan — 
a. ~<»~o So @ 
<= Vor <j 
=> fe eS tt eT) 

w Owxx<x< UE DewOcw xXx xxx «MOE SSS ZZZAMHZZVD VDD Awwe oe eel oed od ontodt ton 4 


BV Owwwy OO JOG Yow ww AA) Ot Od Od Ot td Ot OS I} OOOO OB. SSMNNNNNNNVNN Ou = 
m @eeeceoeoeoeoceoeeoeonvneee st @teeeceecevpeereererseeeeresreeereeeeee ee eee ahaha 


NGTH 
PWN 


o-oo TOO. DWO Ow VOWLOK—NMTNDO OR. DOW LU 
pee eet rete tttt tastes e eee tae 

Oooo SOOOoOCOOoOoOoOoooooosoS Sooo 
SOOSSOOSOOOSOSOSOOOSSOSOSOSOSSOOSOOSOSSSSOSSOSSSOSOSSSOSSSSSSSo 
SOOOCOOOSSOOSOOSOOSOOSOSSSSSOSSSSSSSSSSSSSSSSSSSOOSOSSOSSSOOSSOSSoOoSes 


‘' &§So 
che 

a 
32 


ek Ok Od Ok Od Ok Od Ok Od Od Od Od OS ad Od Od OS Od Od Od Od Od Od Od Od Od Od Od On Od Od Od Od OG Od On Ooed Od OG Ong OG Seed OG OG Od Od Od Od Ons OG OG Om OS 


<SEP- : ro V04-00 Page 25 | 
COMMAND ee ee "RSEb=1986 83:99:08 LOC VeRcHCOMMAND man 1 ° 73) 
Symbol table 00000 
AND 3 SYM_T_SYMBOL p é 
PRC-Q-FLUSHT IME S URK-B-CADOPT ili 
PRC~Q” IMAGENAME ° URK-B-AINPARA FFFFFFDI 
PRC__KEYPAD : WRK-B_PARMCNT PRFFFECE 
PRE _O_LABEL j WRK—B_PARMSUM FFFFFECE 
PRC_O_LOCAL WRK-B-RECALLCNT FFFFFFCS 
PRC_Q_SAVEPRIV F WRK-B-VALLEV FFFFFFC4 
PRC_1_OUTOVI 404 WRK-B-VERBTYP FFFEPFC2 
PRC-V—CHAIN ° } RK-C“LENGTH FFFFF486 
PRC_V_CMD ma tsttitt URK-CUSERSTKSIZ = 00000 
PRC_LV_CNTRLY . 8 } WRK-G_BUFFER Hadast 
PRC.V_DISABL e WRK-G-INPBUF FFFFF896 
PRC _V_FLUSH eh ttitttit4 WRK~G-RESULT FFFFF9B6 
PRC_V_GOTO me titty WRK-K-LENGTH FFFFF4B6 
PRC _V HANGUP = 000005 WRK-L-CHARPTR FEFFP4BE 
PRC-V~IND = 0000 ie ow FFFFFFE6 
PRC “Vv MODE = 00000006 URE pops SALL OM FFFFFOAE 
PRC _V RODE = 00000004 WRK-L-ERRORRTN Add aay 
PRC~V~RUNDEF = 90000002 WRK “LEXPAND Secorers 
PRC_V_YLEVEL a tit tit WRK-L-MARKPTR FFFFPGEA 
PRC-W_ASTIOSB 9000¢ WRK-L“PAROU FFFFFFD2 
PRC_W_ASTRETN ttt WRK-L-PMPTADOR FFFFFOAG 
PRC_W-ASTSTATUS 99000¢4 URE LL PRP TADOR FRFFFOAG 
PRC_W_ATTMBX 000007 “rT ~PROPT FFFFFFC6 
PRC_W_FLAGS 00000068 ra eH FFFFFFCA 
PRC" INPCHAN 90000064 WRK LLQUABLE FREFFOAA 
PRC_W_ONLEVEL 000006A WRK-L_ Fan FREFEFEA 
PRC_W_OUTIFI 00000114 Serer omecett FFFFFFB6 
PRC_W_OUTISI SOSROCA WRK-L-RSLNXT FFFFFFBA 
PRC_W_OUTMBXCHN OOO00CA URE SAVAP FFFFFFFS 
PRC_W_OUTMBXREF OOOOOCE URKLSAVEP FEEEFFFC 
PRC_W_OUTMBXSIZ OCOfOET URE“ SAVSP FEEEEFEG 
PRC_W_PMPTCTRL 00000F 1 K7U~SIGNALRTN FFFFFFD6 
PRC~W"WAITIOSE 9000066 Wek ab = STGHALR FFFFFOB2 
PROCFORN OOOOSAF R 03 abe EC FFFFFFDE 
PSL$V_CURMOD = 90000018 Wek LTB. FPP rr Be 
PTR_B_LEVEL Hat WRK-V-CLIRTN = 0000000 
PTR_ ER 4 4 5 WRK ~V~ COMMAND = 00000001 
PTR_B_PARMCNT 444 URE-UFLAGS FFFFFFFO 
TR_B_VALUE 4 4 WRK-W"FLAGS FFFFFFF2 
PTR_C_LENGTH 800005 WRK-W~IMGCHAN FFFFFFEE 
PTR-K~ENDLINE P RK-W"PMPTLEN FEEEEOOE 
PTR_K_LENGTH XXXSACLOCATE cOR 9 | 
PTR-K-PARAMETR 5 XXXSASSIEN CR 0 
PTR_L_DESCR XXXSATTACH 0 288 R 
PTR_L_ENTITY CE 4C2 R 
RABSL ~CTX = 1 AXXSCANCEL 3CC R 
ROUTINES 07 R 02 XXXSCLOSE t 4FBR 
TINES LEN = 180 XXX$ CONNEC 4B. | 
Roy ILLSER eterenee ; XXXSCONT INUE LED R | 
SYMBOL BR 0 KXXSCRETABLE | aS ik 
SYM_B_FLAGS ° AAASDEASS IGN DE R | 
SYM_B_NONUNI QUE XXXSDEBUG E4 R 
SYM~B-TYPE " XXXSDECK EA R | 
Symrrnee 000000 XXXSDEF INE FOR 


| 
COMMAND = PROCESS NEXT COMMAND 17736-1386 $3:40: 
Symbol table 64-SEP-1984 23:39: 
XXXSDEFKEY 
XXXSDELKEY 
XXXSDELSYM 
XXXSDEPOSIT | 
XXX$D1SCONNECT 
XXXSEOD | 
| 
| 
| 
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XX 
XXXSEXT IMAGE 
XXX$SGOT 


XXXSIF 

XXXS INQUIRE 
XXXSLOGOUT 
XXXSMCR 
XXXSON 


XXXSOPE 
XXXSREAD 
XXXSRECALL 


PRR R RRR RRR RRR RPP P REP PAE 
AAO AMMAN O FUN @OODOT HAMS 


Sooooooooooooo 
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SOooooooooooooS 


oo 1949939393993 39335 
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XXXSSETPROMPT 
XXXSSETPROT 
XXXSSETUIC 
XXXSSETVERIFY 
XXXSSHOWDEF 
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XXXSSPAWN 

XXXSSTOP E 

XXXSWAIT ae 
= 000000EF 


! Psect synopsis ! 
pease oat eae aman ee = + 


PSECT name Allocation PSECT No. Attributes 


a 00000000 < CON Lc 
SABS$ ApODO IBS ; 1.) NOPIC USR CON $ Le 
( tC 


$s 
DCLSZDATA 000001 
DCL$ZCODE 00000633 -) NOPIC USR CON REL 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 

HR EXE RD WRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 


es 


! Performance indicators ! 


bree ew osce ence meee eeranaad 


Phase Page faults CPU Time Elapsed Time 
Initialization 18 : 28 -04 :00:01.49 
es processing 9 :00:00.64 :00: §.% 
361 :00:13. 743.1 
ey table sort 189 :00:01. :00: 3°9 
Symbol table output 47 :00:00. : : 0: 1:3 
Psect synopsis output 4 :00:00. :00:00. 
Cross-reference output 8 :00:00. 9 0:00: 9.90 
Assembler run totals 70 219, 0:01:07. 


The working ct Limit was 1200 pages. 

fore eyes (170 pages) of virtual memory were used to buffer the intermediate c 
ere were 6 

871 source Lines were read in Pass 1, producing object records in Pass 2. 

43 pages of virtual memory were used to define 27 macros. 


Pewee me rm ewe ee mE Ee ee 


! Macro Library statistics ! 


wees scan seerec res we ce ws someone} 


Macro Library name Macros defined 


BTitttny $ spay st 383 oie ae 31 13 
$538SbUA : ah : 0 
S255SDUA tevsils STARLET. MLB; 2 6 
vetaie (all Libraries) 19 


1101 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 


9 
COMMAND = PROCESS NEXT COMMAND . 15-SEP- 
VAX-11 Macro Run Statistics 4-SEP- 


ode. 
O pages of symbol table space allocated to hold 1080 non-local and 49 local symbols. 
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AX/VMS Macro Vv04-00 
DCL.SRCJCOMMAND .MAR; 1 


MACRO/LIS=L1IS$: COMMAND/OBJ=0BJ$: COMMAND MSRC$: COMMAND/UPDATE=(ENHS: COMMAND) +EXECMLS$/L1B+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLDMLB/LIB 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


